The Netherlands - A Compact World/The Netherlands.iso/dev/links.dxr/00011_scrollup.ls

Text File | 2002-01-09 | 562 b | 34 lines

on mouseDown me
  global ankertje, scrollup
  member(sprite(6).member).scrollTop = member(sprite(6).member).scrollTop - 10
  ankertje = the milliSeconds
  scrollup = 1
end

on enterFrame
  global scrollup, ankertje
  if scrollup = 1 then
    if the milliSeconds > (ankertje + 300) then
      member(sprite(6).member).scrollTop = member(sprite(6).member).scrollTop - 5
    end if
  end if
end

on mouseUp
  global scrollup
  scrollup = 0
end

on mouseUpOutSide
  global scrollup
  scrollup = 0
end

on mouseEnter
  cursor(280)
end

on mouseLeave
  cursor(-1)
end